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New Cross Assemblers Available 


We have recently added three new cross assemblers to the S-C 
Macro family. 


Intel 00 6666 hw keee ones eee ooeeoU 
General Instruments 1650....$50.00 
General Instruments 1670....$50.00 


Unlike previous cross assemblers, which were based on Version 
1.0 of the S-C Macro Assembler, these are based on Version 1.l. 
This means 80-column support for the Videx, STB-80, and Apple 
//e-//c 80-column, as well as standard 40-column. It also adds 
certain directives and fixes some problems which were in 
version 1.0. 


We have also been hard at work generating Version 2.0 of the 
S-C Macro Assembler. It will be ready soon, complete with a 
brand new manual. It will support all the new opcodes and 
address modes of the 65C02, 65802, and 65816 processors. 
Owners of older versions of the S-C Assemblers will be able to 
upgrade for a very reasonable fee. 


18-Digit Arithmetic, Part Otc eewwnw ean eee BOD Sander-Cederlof 


This month we will look at two output conversion routines. The 
first one always prints in exponential form, while the second 
one allows setting a field width and number of fractional 
digits. The routines are written so that the output string may 
either be printed or fed to an Applesoft string variable. 


Let's assume that the value to be printed has already been 
loaded into the DP18 accumulator, DAC. Lines 1230-1270 
describe DAC as a 12-byte variable. The exponent is in the 
first byte, DAC.EXPONENT. It has a value from $00 to $7F: 


$00 means the whole number is zero 

$01 means the power of ten exponent is -63 
$3F means 10°-1 

$40 means 10°0 

$41 means 10°1 

S7F means 10°63 


The 18 digits of the number, plus two extension digits, are in 
the next ten bytes in decimal format (each digit takes four 
bits). The extension is zeroed when you load a fresh value 
into DAC, but after some computations it holds two more digits 
to guard against roundoff and truncation problems. 


The sign of the number is stored in DAC.SIGN: if the value in 
DAC.SIGN is from $00 to $7F, the number is positive; if from 
$80 to SFF, the number is negative. 


If you have been following the DP18 series from the beginning, 
and typing in all the code (or getting it from the Quarterly 
Disks), then you will realize that to integrate each 
installment takes some work. In order to print the sections 
separately, and have them separately readable, I must repeat 
some variable declarations. The listing this month refers to 
two previously printed subroutines, DADD and MOVE.YA.ARG. 
These are simply equated to SFFFF in lines 1030 and 1040, so 
that the code will assemble. If you really want it to work, 
you have to remove those two lines and include the code for the 
subroutines. The fact that three installments have already 
been printed also somewhat restricts me, because even if I see 
possible improvements I must be careful not to contradict the 
code you already have. 


Quick Standard Format Conversion 


The subroutine QUICK.FOUT which begins on line 1600 converts 
the contents of DAC to a string in FOUT.BUF in the format 


sd .dddddddddddddddddEsxx 


The first s is the sign, which is included only if negative. 
The d's are a series of up to 18 significant digits (trailing 
zeroes will not be included). The letter E is always included, 
to signify the power-of-ten exponent field. The letter s after 
the E is the sign of the exponent: it is always included, and 
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s-C Macro Assembler Version oe ee ee ee ee ere 
S-C Macro Assembler Version Leleés eee 6ce< Wess 6460060 be eeesewe wee e926 D0 
Version 1.1 UDO BCG oe We-6 6.6 ONC 4G eos 6465 56 0S S486 o ee ba eew ewes ol 2.50 
Source Code for Version 1.1 (on two disk SideS)....ccccccccccvccccceeSlI0 
Full Screen Editor for S-C Macro (with complete source code)........+.$49 
S-C Cross Reference Utility (without source COGE) sw sd nieweeteexkseesuaes eeu 
S-C Cross Reference Utility (with complete source code) ..cccccceedeeee $50 
DISASM Dis~Assembler (RAR -WAl ©) oso6w oe 66 6460646066 C49 4s See eS SSO 
Source Code for DISASM ec ccc ccc ccc cc ccc ccc ccc ccc ccc cccccccs aditional $30 


S-C Word Processor (with complete S0UrCe COdE) ..ccccccccccccccccesesee SIU 
Double Precision Floating Point for Applesoft (with source code)......$50 
S-C Documentor (complete commented source code of Applesoft ROMs).....$50 
Source Code of //e CX & FB ROMS ON diBk..ccccccccccccevccscccccccccceee Sl lS 


(All source code is formatted for S-C Macro Assembler Version 1.1. Other 
assemblers require some effort to convert file type and edit directives.) 


AAL Quarterly DI GK G és 666we 0d be Seow 6 ww ewe ha ee owe oe Se cen eew es Oacn $15 
Each disk contains all the source code from three issues of “Apple 
Assembly Line", to save you lots of typing and testing time. 

QD#1: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 
QD#10: Jan-Mar 1983 QD#11: Apr-Jun 1983 QD#12: Jul-Sep 1983 
QD#13: Oct-Dec 1983 QD#14: Jan-Mar 1984 QD#15: Apr-Jun 1984 


AWlIe Toolkit (Don Lancaster, SYNELGeticB) .cccccccccccccsccscccccvesesee S39 
Quick-Trace (Anthro-Digital) ...ccccccccccccccccvccccccccecs (LEGe $50) $45 
Visible Computer: 6502 (Software Masters) ...ccccccccccccee (reg. $50) $45 
ES-CAPE : Extended S-C Applesoft Program EGLCOL «in éiiiweedne wees enscecn< 960 
Amper-Magic (Anthro-Digital) ..cccccccccccccvcccccccccccsecs (LEGe $75) $65 
Amper-Magic Volume 2 (Anthro-Digital) .....cccscccccccecceee (rege $35) $30 
“Bag of Tricks", Worth & Lechner, with diskette... .ccccccceee ($39.95) $36 
Aztec C Compiler System (Manx Software) ..ccccccccccccceee (reg. $199) $180 


Blank Diskettes (Verbatim) .....ececeee2-50 each, or package of 20 for $45 
(Premium quality, single-sided, double density, with hub rings) 

Vinyl disk pages, 6"x8.5", hold two disks each... .cceccccccccccceel0 for $6 
Diskette Mailing Protectors (hold 1 or 2 disks) ....2e.e.2+--40 Cents each 

or $25 per 100 

These are cardboard folders designed to fit into 6°x9" Envelopes. 

Envelopes for Diskette MailerS....cccccccccccccccsccccccccce 6 Cents each 
ZIF Game Socket Extender (Ohm Electronics) ..cccccccccccccccccccccccee $20 
QuikLoader EPROM System (SCRG) 6.5. 006es6eGe sees dew anes exvees es (9175) $170 


Books, BookS, BOOKS..ccccccccccccccccecccccee Compare our discount prices! 
"Apple ][ Circuit Description", Gayler...cccccccccccccee ($22.95) $2] 
"Understanding the Apple II", Sather..ccccccccccccccccee ($22.95) $21 
"Enhancing Your Apple II, vol. 1", Lancaster..c.cccccccee ($15.95) $15 

Second edition, with //e information. 
"Assembly Cookbook for the Apple II/IIe", Lancaster.....($21.95) $20 
“Incredible Secret Money Machine", LancasSter...ccccccccce ($7.95) $7 
"Beneath Apple DOS", Worth & Lechner... ccccccccccccceee ($19.95) $18 
“What's Where in the Apple", Second Edition...c.ccccceeee ($19.95) $19 
“6502 Assembly Language Programming", Leventhal.........($18.95) $18 
"6502 Subroutines", Leventhal .ééo<0cews 608 owewewe wwesese ($16.95) $18 
“Real Time Programming -—- Neglected Topics", Foster...... ($9.95) $9 
"Microcomputer Graphics", MYEKS...ccccccccccccccccccccce ($12.99) $12 
“Microcomputer Design & Troubleshooting”, Zumchak.......($17.95) $17 


We have small quantities of other great books, call for titles & prices. 
Add $1.50 per book for US shipping. Foreign orders add postage needed. 


*** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
beaded (214) 324-2050 wee 
*** We accept Master Card, VISA and American Express *** 
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will be either + or -. The xx is a two-digit exponent, and 
both digits will always be included. The decimal point will be 
included only if there are non-zero digits after it. If the 
number is exactly zero, the string in FOUT.BUF will be simply 
"0". Here are some more examples: 


value string 
1000 "“1E+03" 
-001 "1E-03" 


-262564478.5 "-2.625644785E+08 * 


Two processes are involved in converting from DAC to FOUT.BUF. 
One is the analysis of the DAC contents; the other is the 
process of storing sequential characters into FOUT.BUF. The 
latter process is handled in most cases by the subroutine at 
lines 3720-3820. Entry at STORE.CHAR stores the contents of 
the A-register in the next position in FOUT.BUF, and increments 
the position pointer (INDEX). Entry at STORE.DIGIT first 
converts the value in the A-register to an ASCII digit by 
setting the high nybble to "3". (The digits 0-9 are $30-$39 in 
ASCII.) 


QUICK.FOUT begins by setting INDEX, the FOUT.BUF position 
pointer, to 0. At lines 1630-1700 the special case of the 
value in DAC being exactly zero is tested and handled. If the 
value in DAC is zero, then DAC.EXPONENT will be zero. (This is 
a convention throughout DP18, to simplify making values of zero 
and testing for them.) If the value is zero, ASCII zero is 
stored in FOUT.BUF, followed by a terminating §00 byte. 


If the value is not zero, the next job is to check the sign of 
the value. Lines 1710-1740 insert a minus sign in FOUT.BUF if 
the value is negative. 


Lines 1760-1910 pull out the 18 digits of the mantissa from 
DAC.HI through DAC.HI+8. The extension digits are ignored. 
The code here looks an awfully lot like a routine to convert 
from hex to ASCII, ignoring the possible hex digits A-F. That 
is because the digits are four bits each, and ARE like hex 
digits. Lines 1830-1860 insert the decimal point after the 
first digit. 


Lines 1930-2020 look at the formatted number in FOUT.BUF and 
trim off the trailing zeroes. If all digits after the decimal 
point are zero, the decimal point is trimmed off too. If you 
would rather that QUICK.FOUT always printed exactly 18 digits, 
trailing zeroes and all, you could cut out these lines. 


Lines 2040-2290 format the exponent field. First the letter E 
is installed in FOUT.BUF. Then lines 2060-2120 install the 
exponent sign. There is a little adjustment here due to the 
fact that the value in DAC is in the form ".DDDD® times a power 
of ten, and we are converting to “D.DDD" times a power. That 
means the exponent in DAC.EXPONENT is one larger than we will 
print. The DEY at line 2080 adjusts for this offset. 


Lines 2130-2180 get the absolute value of the exponent by 
removing the $40 bias and taking the 2's complement if the 
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result is negative. Lines 2190-2290 convert the binary value 
of the exponent to two decimal digits, and insert them into 
FOUT.BUF. Lines 2300-2310 terminate the FOUT.BUF string with 
$00. 


Once the value has been converted to a string in FOUT.BUF, we 
can either print it or put it into an Applesoft string 
variable. The subroutine QUICK.PRINT which begins at line 1370 
calls QUICK.FOUT and then prints the characters from FOUT.BUF. 


Fancier Formatted Conversion 


The second conversion routine, which begins at line 2350, 
allows you to specify the number of digits to display after the 
decimal point, and the number of characters in the output 
field. The value will be formatted into the field against the 
right end, with leading blanks as necessary to fill the field. 
The value will be rounded to the number of digits that will be 
converted. If you are familiar with the FORTRAN language, you 
will recognize this as the "Fw.d" format. W is the width of 
the field, and D is the number of fractional digits. Here are 
some examples: 


W OD value string 
12 5 1234.56 *® 1234.56000" 
12 1 1234.56 * 1234.6" 


As before, the output string will be stored in FOUT.BUF in 
ASCII code, terminated by a $00 byte. If the value will not 
fit into the W.D field you specify, the entire field will be 
filled with “*" characters. 


As listed here, I have set FOUT.BUF as a 4l-byte variable. 
This means the maximum W is 40, leaving room for the 
terminating $00 byte. If you want longer conversions, simply 
change line 1060. 


FOUT expects the W and D parameters to be in the A- and 
Y-registers, respectively. Lines 2380-2460 check W and D for 
legality. If W is larger than FOUT.BUF.SIZE-1, then it is set 
to that value. We don't want to store converted characters 
beyond the end of FOUT.BUF! Then if D is larger than W-l, it 
is pruned back. 


Lines 2480-2540 initialize various variables used during the 
following conversion. Once again, INDEX will point to the 
position in FOUT.BUF. I could probably have economized some in 
the use of variables by re-using the same variables for 
different purposes, but I wanted to keep them separate to make 
it easier to code and debug. 


Line 2560 calls ROUND.DAC.D to round the value in DAC to D 
digits after the decimal point. This boils down to adding .5 
times 10 to the D power to the value in DAC. ROUND.DAC.D, at 
lines 3860-4000, does just that. First the rounding number is 
built in ARG, then DADD adds ARG to FAC. 
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Lines 2570-2610 store a minus sign into SIGN.CHAR if the value 
in DAC is negative. SIGN.CHAR was initialized to $00 above. 

If the sign is negative, line 2590 will increment SIGN.SIZE. 
SIGN.SIZE will either be 0 or 1, and will be used later in 
determining how many leading blanks are needed. We cannot 
store the sign character into FOUT.BUF until the leading blanks 
have been stored. 


Lines 2630 to 2710 compute how many digits will be printed 
before the decimal point (NO.LEADING.DIGITS), and how many 
zeroes before the first significant digit after the decimal 
point (NO.LEADING.ZEROES). If the power-of-ten exponent was 
negative, there will be no leading digits and some leading 
zeroes; if positive, there will be some leading digits and no 
leading zeroes. For example, 


© 2345E-5 - 000002345 5 leading zeroes 
- 2345E+3 234.5 3 leading digits 


What if the exponent is more than 18? This would mean more 
digits might be extracted from DAC than exist, so lines 
2730-2790 limit NO.LEADING.DIGITS to 18. NO.INTEGRAL. ZEROES 
takes up the slack, to print any necessary zeroes between the 
last significant digit before the decimal point, and the 
Gecimal point. For example, if W=25 and D=2, and the value is 
~1234E+20, we will get NO.LEADING.DIGITS=18 and 

NO. INTEGRAL. ZEROES=2: 


*" 12340000000000000000.00" 


Lines 2810-2870 now calculate the total number of non-blank 
Characters which will be required: one for sign if the sign is 
negative, all the leading digits and integral zeroes before the 
decimal point, one for the decimal point itself, and D 
fractional digits. (Just now I noticed that I could have saved 
two bytes and two cycles by changing line 2810 from CLC to SEC, 
and eliminating the ADC #1 at line 2860.) 


Lines 2890-2920 compute how many significant digits of fraction 
will be needed. You specified D digits of fraction, but only 
DD of them will come from the value in DAC. This will be less 
than D if there are any leading zeroes. 


Lines 2940-2970 check whether the converted number can fit ina 
W-wide field. If not, Lines 3370-3400 fill the field with 
stars and exit. 


Lines 2980-3030 compute how many leading blanks will be needed 
to right justify the number in the W-field. There is some 
hopscotch here because we are going to put °0.° in front of 
numbers that have no integral digits. 


At long last, we are ready to begin string characters in 
FOUT.BUF. Lines 3050-3070 store the leading blanks. A 
subroutine STORE.N.CHARS does the dirty work. STORE.N.CHARS 
(lines 3670-3710) expects the character to be stored in the 
A-register, and the count in the Y-register. It also expects 
that the Z-status is set according to the count in Y. Thus, if 
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FONT DOWNLOADER & EDITOR ($39.00) 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. All special printer functions (like expanded, compressed etc.) 
apply to custom fonts. Full HIRES screen editor lets you create your own characters and special graphics 
symbols. Compatible with many parallel printer I/F cards. User driver option provided. For Apple fi, li+, //e. 
Specify printer: Apple Dot Matrix, C.itoh 8510A (Prowriter), Epson FX 60/100, or OkiData 92/93. 


NEW ! !! The Font Downloader & Editor for the Apple imagewriter Printer. for use with 
Apple 1, Il+, //e (with SuperSerial card) and the new Apple //c (with builtin serial interface). 


NEW !!! FONT LIBRARY DISKETTE #1 ($19.00) contains lots of user-contributed fonts for all 
printers supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e - AN INTELLIGENT DISASSEMBLER ($30.00) 

Investigate the inner workings of machine language programs. DISASM converts machine code into meaningful, 
symbolic source. Creates a standard text file compatible with S-C, LISA, ToolKit and other assemblers. Handles 
data tables, displaced object code & even lets you substitute your own meaningful labels. (100 commonly used 
Monitor and Pg Zero names included.) An address-based triple cross reference table is provided to screen or 
printer. DISASM is an invaluable machine language learning aid to both novice & expert alike. Don Lancaster 
says DISASM is “absolutely essential” in his new ASSEMBLY COOKBOOK. For entire Apple li family including the 
new Apple //c (with all the new opcodes). SOURCE CODE available for an additional $30.00 


S-C Assembler (Ver 4.0 only) SUPPORT UTILITY PACKAGE ($30.00) 

" SC _XREF - Generates s GLOBAL LABEL Cross Reference Table for complete documentation of source listings. 
* SC.GSR - Global Search & Replace eliminates teadious manual renaming of labels. Search all/part of source. 
* SC.TAB - Tabulates source files into nest, readable form. SOURCE CODE available for an additional $30.00 


The ‘PERFORMER’ CARD ($39.00) 

Plugs into any slot to convert a ‘dumb’ centronics-type printer I/F card into a ‘smart’ one. Command menu 
eliminates need to remember complicated ESC codes. Features include perforation skip, suto page numbering 
with date & title. Includes large HIRES graphics & text screen dumps. Specify printer: MX-80 with 
Graftrax-80, MX-100, MX-60/100 with Graftraxplus, NEC 8092A, C.Itoh 6510 (Prowriter), OkiData S2A/85A 
with Okigraph & OkiDats 92/93. SOURCE CODE: $30.00 


FIRMWARE FOR APPLE-CAT: The ‘MIRROR’ ROM ($25.00) 

Communications ROM plugs directly into Novation's Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing, true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. Uses superset of 
Apple's Comm card and Micromodem |I commands. SOURCE CODE: $50.00 


RAM/ROM DEVELOPMENT BOARD ($30.00) 
Plugs into any Apple slot. Holds one user-supplied 2Kx6 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $Cn00-CnFF and $CQ00-CFFF. 


NEW !!! C-PRINT For The APPLE //c ($99.00) 

Connect standard parallel printers to an Apple //c. C-PRINT is a hardware accessary that plugs into the 
standard Apple //c printer serial port. The other end plugs into any printer having a standard 36 pin 
centronics-type parallel connector. Just plug in and print! High speed data transfer at 9600 Baud. No need to 
reconfigure serial port or load software drivers for text printing. 


Avoid a $3.00 postage/handling charge by enclosing full payment with order. (Mastercard & VISA excluded) 
RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 


CEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESE 
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the count is zero, the subroutines returns immediately without 
storing any characters. 


STORE.N.DIGITS, at lines 3440-3620, is quite similar to 
STORE.N.CHARS. Once again, the count must be in the Y-register 
and the Z-status should reflect the value in Y. Digits are 
picked out of the value in DAC using an index DIGIT.PICKER, and 
stored into FOUT.BUF using STORE.DIGIT. 


Lines 3090-3110 store the sign if it is negative. Lines 
3120-3210 print whatever digits are needed before the decimal 
point. This will include leading digits (if any) and integral 
zeroes (if any), or simply one zero (if neither of the other). 


Lines 3230-3320 store the fractional part. This includes the 
decimal point, leading fractional zeroes (if any), and 
fractional digits (if any). 


Finally, lines 3340-3350 store a terminating $00 at the end of 
the string in FOUT.BUF. 


A subroutine called FORMAT.PRINT at line 1450 calls FOUT and 
then prints the contents of FOUT.BUF. You could now write a 
higher level routine, if you wish, which would examine the 
exponent to determine whether the number would fit ina 
20-character field. If not, you could use QUICK.PRINT. If so, 
use FOUT with W=40 and D=18, and then truncate leading spaces 
and trailing zeroes. This would give you a complete print 
routine for any numbers, printing them in simple form when they 
fit and exponential form when they don't. Indeed, just such a 
routine already exists in DP18, but will have to wait for a 
future installment. FOUT can also be used as the base for a 
complete PRINT USING facility, and that is also already in DP18 
waiting for future installments. 

Meanwhile, enjoy these two conversions, and experiment with 
your own. 


ania aoe ®SAVE S.DP18 FOUT 


DB5C- 1020 AS .COUT eEQ $DB5C 
FFFF- 1030 DADD EQ $FFFF 
FFFF- aoee O MOVE.YA.ARG .EQ FFFF 
0800- 1060. FOUT. BUF 44 

29- tone FOUT. . BUF.SIZE EO *-FOUT. BUF 
0829- 1090 W BS 1 

082A- 1100 D -BS 1 

082B- 1110 INDEX BS 1 

082C- 1120 SIGN.SIZE .BS 1 

082D- sae SIGN.CHAR .BS 1 

082E- 1140 ZERO.CHAR .BS 1 

082F- 1150 WW BS 1 

08 d= 1160 DD -BS 1 

0831- ihe DIGIT. PICKER -BS 1 
08 32- 1180 NO.LEADING.ZEROES .BS 1 
0833- 1190 NO.LEADING.DIGITS .BS 1 
O33 - 1200 NO.INTEGRAL.ZEROES .BS 1 
08 35- a NO. LEADING. BLANKS -BS 1 
08 36- ‘Sie DAC -BS 12 

08 36~ 1240 DAC. EXPONENT .EQ DAC 

08 37- ‘<0 DAC. HI EQ DAC+1 
0840- 1260 DAC. EXTENSION .EQ DAC+10 
0841- ren DAC. SIGN EQ DAC+11 
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0842— 1290 ARG .BS 12 
0842~ 1300 ARG.EXPONENT .EQ ARG 
084C- 1320 ARG.EXTENSION .EQ ARG+10 
O84D- 1330 ARG. SIGN -EQ ARG+11 
122, # QUICK PRINT 
1370 QUICK. PRINT 
O84E- 20 6A 08 1380 JSR QUICK. FOUT 
0851= 4C 5C 08 1390 JMP FOR.PRINT. 1 
1410 ® FORMATTED PRINT 
1420 (A) =WIDTH OF FIELD 
1430 s Y)=# OF FRACTIONAL DIGITS 
1450 FORMAT. PRINT 
O854- A2 30 —- 1460 LDX #'0 USE ZEROES BEFORE FRACTION 
0856- 8E 2E 08 1470 STX ZERO.CHAR 
0859- 20 F1 08 1480 JSR FOUT 
1500 FOR. PRINT. 1 
085c- AO 00 _—- 1510 LDY #0 
O8SE- B 00 08 1520 1 LDA FQUT.BUF,Y 
pace ea 1310 JSR AS.COUT 
0869- 60 1979 2 RTS 
1590 # QUICK CONVERSION 
ieee a ee ye Re ee en er nny w= 
1610 QUICK.FOUT 
Opens Be 38 op 1230 STY INDEX 
O86F- AD 36 08 1680 LDA DAC. EXPONENT 
0872= DO OC 1650 BNE .0 NUMBER IS NOT ZERO 
0874- EE 2B 08 1660 INC INDEX 
Suite BG 93 08 ggg SE ug more 
o87C~ 8b 0 08 1690 STA FOUT.BUF MAKE IT ‘0° 
OBBS2 ID rf . 1420 - a ce 
OF ae AQ 2D 1730 LDA #'- NEGATIVE 
0887- 20 01 OA 17ho . JSR STORE.CHAR 
088A- BQ 37 08 1760 1 LDA DAC.HI,Y NEXT BYTE OF # 
O88D- 4 1 19 PHA 
O88E- 4A 1780 LSR 
O88F- 4A 1790 LSR 
OB aye AA 1840 ish 
0892- 20 FD 09 1820 JSR STORE.DIGIT 
mg og ue oa 
OB 3a. RG 8 1800 LDA #". ._—«~ PUT DECIMAL POINT 
O89B- 20 01 OA 1860 JSR STORE.CHAR 
O89E- 68 1870 2 PLA “DO 2ND DIGIT 
0 F- 20 FD 09 18 0 JSR STORE.DIGIT 
O8A3- CO 09 1960 CPY #9. 8 MORE BYTES 
O8A5- 90 E3 Jo F BCC .1 
OBA7- AC 2B 08 1930 ; LDY INDEX | TRUNCATE TRAILING ZEROS 
OBAB- e3 00 08 1880 ° LDA FOUT.BUF,Y 
OR AE F £8 1 {0 BEQ «3 DONE 
OBB2- c9 2E 1980 CMP #7. TRAILING DECIMAL PT? 
O8B6- 2000 DEY YES, DELETE IT 
0 Bf c 2010 .4 INY 
O8BB- 8&C 2B 08 2020 . STY INDEX SAVE NEW END OF NUMBER 
O8BB- A9 45  ~—- 2080 LDA #'E 
O8 BD- 20 04 OA 20 0 JSR STORE.CHAR E FOR EXPONENT 
_ ap 
08C2- AC 36 08 2070 LDY DAC. EXPONENT 
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once 88 2080 DEY 
CO 40 2090 CPY #$40 
- BO 02 #2100 BCS . 
OBCAR AQ 2D 2110 LDA #'- 
O8CC- 20 01 OA 2120 .5 JSR STORE.CHAR 
O8CF- 9 2130 TYA EXPONENT 
O8D0- 38 2140 SEC 
O8D1- E9 40 2150 SBC #340 REMOVE OFFSET 
O8D3- 10 O4 2160 BPL . 
O8D5- 49 FF 2170 EOR e$FF 
O8D7- 69 01 2180 ADC # 
O8D9- A2 2F 2190 .6 LDX #'0=1 
O8DB- 38 2200 SEC 
O8DC- 2210 .8 INX 
O8DD- E9 OA 2220 SBC #10 
O8DF- BO FB 2230 BCS .8 
O8E1- 62 3A 22 ADC #'9+1 
O8E3- 4 2250 PHA 
O8E4- 8A 2200 TXA 
O8E5=- 20 01 OA 2270 JSR STORE.CHAR 
O8E8- 68 2280 PLA 
O8E9- 20 01 OA 2290 JSR STORE.CHAR 
O8EC- AQ 00 2300 LDA #0 
O8EE- 4C 01 OA 2310 ‘ JMP STORE.CHAR 
2330 * FORMATTED CONVERSION 
2340 8 f SSF OF OF FIELD 
2390 : Y)=# OF FRACTIONAL DIGITS 
2370 FOUT 
O8Fi- C9 29 2380 CMP #FOUT.BUF.SIZE § LIMIT WIDTH 
O8F3- 90 02 2390 BCC . 
O8F5=- AX 28 2400 LDA #FOUT.BUF.SIZE=1 
O8F7- 8D $9 08 2410 .1 STA W 
O8FA- CC 29 08 2420 CPY W FORCE D<W 
O8FD- 90 02 ato BCC .2 
O8FF- AB 24 TAY 
0900- 2450 DEY 
0901- 8C 2A 08 2460 .2 STY D 
a 2 GP 2D GS GR SS Gp GS Ge Ge GP OF ED Cb SP GS SP GP OP GP GP) GS GD Cb SD GD SP GS Ge SB a> ap 
090 - AQ 00 24 LDA 
0906- 8D 2B 08 2490 STA INDEX 
0909- 8D 2C 08 2500 STA SIGN.SIZE 
090C- 8D 2D 08 2510 STA SIGN.CHAR 
O90F- 8D 34 08 2520 STA NO.INTEGRAL. ZEROES 
0912- 8D 32 08 2530 STA NO.LEADING.ZEROES 
0915- 8D 31 08 32 De STA DIGIT.PICKER 
0918- 20 OB OA 2560 JSR ROUND.DAC.D ROUND TO D DIGITS 
091B- AD 41 08 2570 LDA DAC.SIGN 
O91E- 10 08 2580 BPL .3 
0920- EE 2C 08 2590 INC SIGN.SIZE 
092 = A9 2D 2600 LDA #'- MINUS SIGN 
0925- 8D 2D 08 2610 STA SIGN.CHAR 
2620 Bewmcemanenmmeneneeoweweemmoew owen] 
0928- 38 2630 .3 SEC 
0929- AD 36 08 2640 LDA DAC. EXPONENT 
092C- E9 0 2650 SBC #40 REMOVE OFFSET 
092E- 10 OA 2660 BPL . 
0930- 49 FF 2670 EOR #$FF 
0932- 8D 32 08 2680 STA NO.LEADING.ZEROES 
0935- EE 32 08 2690 INC NO.LEADING.ZEROES 
0938- a9 00 = =—s 2700 LDA #0 
093A- 8D 33 08 o1i0 Ph STA NO.LEADING.DIGITS 
093D- 38 2730 SEC 
093E- AD 33 08 2740 LDA NO.LEADING.DIGITS 
O941- E9 12 2750 SBC #18 
0943= 30 08 760 BMI .5 
094 D 34 08 2770 STA NO. INTEGRAL. ZEROES 
0948 a9 12 2780 LDA #18 18 SIGNIF DIGITS MAX 
O94A- 8D 43 08 2 30 ; STA NO.LEADING.DIGITS 
O94D- 18 2810 .5 CLC CALCULATE TOTAL # OF DIGITS 
O94E- AD 2C 08 2820 LDA SIGN.SIZE 
0951- 6D 33 08 2830 ADC NO.LEADING.DIGITS 
0954- 6D 3 08 2840 ADC NO. INTEGRAL. ZEROES 
0957- 6D 2A 08 2850 ADC D 
O95A- 69 01 2860 ADC #1 
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O9F3- DO 
O9F5- 60 
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N= 
ooo°o 


uw 


=) 
fo) 
WIA WILLA LILI OIL LALA) 


Bo Hi 
5g 0 48 
2E 08 {o 
a) OF 8 
2 08 3200 
1 6 Bi 
2 Be 
go 
2E 08 35 0 
32 08 . 3290 
FA 09 3300 
30 08 3310 
ao 
ee 
a it 
29 08 0 
eb 33 388 
33 
3420 
130 
1 08 3440 
ti 20 
3 Be 
OE 3190 
31 08 3210 
él 08 3550 
5 
288 
no oe 
3 00 
DO E1 10 
3620 
3630 


« OVERFLOW 
NO. LEADING. BLANKS 
NO .LEADING. DIGITS 


6 
DEC NQ.LEADING. BLANKS 


BPL . 
INC NO.LEADING.BLANKS IT WENT -, MAKE 0 


#---STORE LEADING BL ANKSo-nenennne 
6 roy A #' BL ANK 
Y NO. LEADING. BLANKS 
HARS 


JSR. STORE.CHAR 
#---STORE INTEGRAL DIGITS------=- 
8 LDY NO. LEADING. DIGITS 


Q .10 
JSR STORE.N.DIGITS 


-10 LDA 
JSR STORE.CHAR 
o11 LDA #'0 
LDY NO. INTEGRAL. ZEROES 
JSR_STORE.N.CHARS 
8.2=STORE FRACTION-~ seeocnenne one 


#’. 
$y STORE.CHAR 
ORA NO.LEADING. ZEROES 


LDA ZERO.CHAR 
LDY NO.LEADING. ZEROES 
JSR STORE.N.CHARS 
LDY DD 
JSR STORE.N.DIGITS 
#.--TERMINATE STRING 
1 LDA #0 
JMP STORE. CHAR 
ope ia FILL FIELD WITH STARS 
JSR STORE.N.CHARS 
JMP °13 


Buweo D> GD GP GP OD Op GD OP CP O28 OO OOS SHS > Gb Geis Ge 
a: STORE NEXT (¥) DIGITS — 


SND..1 LDA DIGIT. PICKER 
CMP #20 


TAX IND 
INC DIGIT. PICKER 
LDA DAC.HI,X 

BCS .2 

LSR 

LSR 

LSR 


LSR 
02 ti STORE.DIGIT 


D 
STORE.N.DIGITS 
od SND..1 


ALWAY 
ZERO.CHAR NO INTEGER PART,SO PRINT 0 


| @ Absolutely, positively, totally 
PRO-DOS and DOS 3.3 
compatible. 

@ Time in hours, minutes, seconds 
and milliseconds (the ONLY PRO- 
DOS compatible card with 
millisecond capability). 

@ 24 hour military format or 12 hour 

aa with AM/PM format. 

@ Date with year, month, day of week and leap year. 

@ The easiest programming in BASIC. 

@ Eight software controlled interrupts so you can run two programs at the 
same time (many examples are included). 

@ Compatible with ALL of Apple's languages. Many sample programs for 
machine code, Applesoft, CP/M and Pascal on 2 disks. 

@ On-board timer lets you time any interval up to 48 days long down to the 
nearest millisecond. 

@ Rechargeable nickel-cadmium battery will last over 20 years. 

@ Two BSR/serial ports for future expansion. 


MemoryMaster Ile 128K RAM Card 

@ Expands your Apple lle to 192K memory. 

@ Provides an 80 column text display. 

@ Compatible with all Apple Iie 80 column and extended 80 column card 
software (same physical size as Apple’s 64K card). 

@ Can be used as a solid state disk drive to make your programs run up to 20 
times FASTER (the 64K configuration will act as half a drive). 

@ Permits your lle to use the new double high resolution graphics. 

@ Automatically expands Visicalc to 95K storage in 80 columns! The 64K 
config. is all that’s needed, 128K can take you even higher. 

@ PRO-DOS will use the MemoryMaster Ile as a high speed disk drive. 

@ The 64K MemoryMaster Ile will automatically expand Apple Works to 55K 
storage. The 128K MemoryMaster Ile will expand Apple Works to 101K 
storage. 

@ High Speed disk emulation for BASIC, Pascal and C P/Mis available ata very 
low cost. NOT copy protected. 

@ Documentation included, we show you how to use all 192K. 

H youatready have Apple's 64K card, justorderthe MEMORYMASTER He with 64% and use the 

64K from your old board to give you a full 128K. (The board is fully soc keted so vousimply plug 


iEaoee Rips) MemoryMaster Ile with 128K $249 
Upgradeable MemoryMaster Ile with 64K $169 
Norn-Upgradeable MemoryMaster We with 64K $149 


There used to be about a dozen 80 column cards for the Apple, now there’s only ONE. 


@ TOTALLY Videx Compatible. 

@ 80 characters by 24 lines, with a sharp 7x9 dot matrix. 

@ On-board 40/80 soft video switch with manual 40 column override. 

@ Fully compatible with ALL Apple languages and software—there are NO 
exceptions. 

@ Low power consumption through the use of CMOS devices. 

@ All connections are made with standard video connectors. 

@ Both upper and lower case characters are standard. 

@ All new design (using a new Microprocessor based C.R.T. controller) fora 
beautiful razor sharp display. 

@ The VIEWMASTER incorporates all the features of all other 80 column 

cards, plus many new improvements. 


@ Complete 16 voice music synthesizer on one card. Just plug it into your 
Apple, connect the audio cable (supplied) to your stereo, boot the disk 
supplied and you are ready to input and play songs. 

@ It's easy to program music with our compose software. You will start right 
away at inputting your favorite songs. The Hi-Res screen shows what you 
have entered in standard sheet music format. 


Texas Residents Add 5% Sales Tax 
Add $10.00 !f Outside U.S.A. 


Apple Peripherals Are All We Make 
That’s Why We’re So Good At It! 


THE NEW TIMEMASTER If H.O. 


VIEWMASTER 80 


SUPER MUSIC SYNTHESIZER 


Our boards are far superior to most of the consumer electronics made today. AII.C.’s are in high quality sockets with mil-spec. components used throughout. P.C. boards are glass- 
epoxy with gold contacts. Made in America to be the best in the world. All products work in the APPLE HE. I. tl + and Franklin. The MemoryMaster Ile is tle only. Applied Engineering 
also manufactures a full line of data acquisition and control products for the Apple; A/D converters and digital I/O cards. etc Please call for more information, All our products are fully 
tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle THREE YEAR WARRANTY. 


Send Check or Money Order to: 


APPLIED ENGINEERING 
P.O. Box 798 
Carrollton, TX 75006 


Full emulation of all other clocks. Yes, we emulate Brand A, Brand T, Brand P, 
Brand C, Brand S and Brand M too. It’s easy for the H.O. to emulate other 
clocks, we just drop off features. That's why the H.O. can emulate others, but 
none of the others emulate us. 

The Timemaster If H.O. will automatically emulate the correct clock card for 
the software you’re using. You can also give the H.O. a simple command to 
tell it which clock to emulate. This is great for writing programs for those poor 
unfortunates that bought some other clock card. 

Of course, most programs will use the Timemaster II H.O. in its native mode, 
but its comforting to know that you can use programs written for other 
products without any modification. 


REMOTE CONTROL 

Our BSR X-10 interface option for the H.O. allows you to remotely control up 
to 16 lights and electrical appliances through your BSR X-10 home control 
system in your home or office. You're already wired because a BSR system 
sends its signals over regular 120 volt wiring. That means you can control any 
electrical device in your home or office without any additional wiring. 


PRICE $129.00 BSR Option $49.00 


Z-80 PLUS @ TOTALLY compatible with ALL 


ase © , CP/M software. 

Te *  @ The only 2-80 card with a special 
2K “CP/M detector’ chip. 

@ Fully compatible with microsoft 
disks (no pre-boot required). 

® Specifically designed for high 
speed operation in the Apple lle 
(runs just as fast in the Il* and 
Franklin). 

@ Runs WORD STAR, dBASE 11, COBOL-80, FORTRAN-80, 

PEACHTREE and ALL other CP/M software with no pre-boot. 

@ A semi-custom I.C. and low parts count allows the Z-80 Plus to fly thru 
CP/M programs at a very low power level. (We use the Z-80A at fast 
4MHZ.) 

@ Does EVERYTHING the other Z-80 boards do, plus 2-80 interrupts. 

Don't confuse the Z-80 Plus with crude copies of the microsoft card. The Z-80 

Plus employs a much more sophisticated and reliable design. With the Z-80 

Plus you can access the largest body of software in existence. Two computers 

in one and the advantages of both, all at an unbelievably low price. 


PRICE $139.00 


a 


ct ibanten SURGE COR LRN MEU SERS Allin 
VIEWMASTER 159 YES YES YES YES YES vESs YES YES 
SUPRTERM MORE \O YOS NSO SO \O NO YES YES 
WIZARDD80 MORE \O \O NO NO YES NO YES YES 
VISIONSO MORE YES YES NO SO YES NO NO NO 
OMNIVISION MORE SO vfs NO NO NO NO VES YES 
VIEWMAXBO MORE YES Yts NO NO YES NO NO YFS 
SMARTERM MORE YES YES NO NO NO YCS YES NO 
VIDEOTERM MORE \O YES YES NO YES YES NO YES 


The VIEWMASTER 80 works with all 80 column applications including CP/M, 
Pascal, WordStar, Format II, Easywriter, Apple Writer II, VisiCalc, and all 
others. The VIEWMASTER 80 is THE MOST compatible 80 column card you 
can buy at ANY price! 

Thousands SOLD at $179 NOW ONLY $159.00 


- END MOCKINGBOREDOM 


@ Now with new improved software for the easiest and the fastest music 
input system available anywhere. 

@ We give you lots of software. In addition to Compose and Play programs, 2 
disks are filled with over 30 songs ready to play. 

@ Easy to program in Basic to generate complex sound effects. Now your 
games can have explosions, phaser zaps, train whistles, death cries. You 
name it, this card can do it. 

@ Four white noise generators which are great for sound effects. 

@ Plays music in true stereo as well as true discrete quadraphonic. 

@ Full control of attack, volume, decay, sustain and release. 

@ Our card will play notes from 30HZ to beyond human hearing. 

@ Automatic shutoff on power-up or if reset is pushed. 

@ Many many more features. 


PRICE $159.00 


Call (214) 492-2027 

8 am. to 11 p.m. 7 days a week 
MasterCard, Visa & C.O.D. Welcome 
No extra charge for credit cards 
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Enable/Disable IRQ from Applesoft..........eBob Sander-Cederlof 


If you have applied the patches to DOS 3.3 that we published in 
the January 1984 issue (pages 10,11), and if you now are using 
interrupts from such sources as the Timemaster II or a handy 
pushbutton, you have probably run into the need to enable and 
disable IRQ from within an Applesoft program. (That sentence 
is the kind you have to read without interruption, so I really 
should have begun the paragraph with SEI and ended it with 
CLI.) 


What is need is four bytes of assembly language, at a location 
that you can CALL. For example: 


300- 58 CLI 
301- 60 RTS 
302- 78 SEI 
303- 60 RTS 


If those four bytes are in memory as shown, you can CALL 768 to 
enable IRQ interrupts, and CALL 771 to disable them. You can 
install the four bytes like this: 


100 POKE 768,88: POKE 769,96 
110 POKE 770,120:POKE 771,96 


Now there are often times when poking into page 3 is not 
possible. Are there other tricky ways to get those bytes 
installed, without using page 3? 


I found a half dozen or so. First, realize that the four bytes 
only need to be there when you call them. The rest of the time 
the same locations could be used for other purposes. For 
example, we could poke them into the input buffer at $200, as 
long as we do it every time we CALL it: 


100 POKE 512,88:POKE 513,96:CALL 512 
to enable interrupts, or 


500 POKE 512,120:POKE 513,96:CALL 512 
to disable then, 


The result of a multiplication or division is left, sometimes 
normalized and sometimes not, in $62...$66. I£ we find two 
numbers whose product leaves the bytes $58 and $60 at $62 and 
$63, we could CALL 98: 


100 X = 1*707 CALL 98 


H REM ENABLE IRQ 
200 X = 1*963 : CALL 98 


REM DISABLE IRQ 


a cat next page is a table showing the various methods I 
ound: 
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Enable (CLI..RTS) Disable (SEI..RTS) 


100 POKE 38,88 100 POKE 38,120 
110 POKE 39,96 110 POKE 39,96 
120 CALL 38 120 CALL 38 


100 CALL 8411232-8411065 100 CALL 8419424-8419257 


100 GOSUB 24664 100 GOSUB 24696 


24664 CALL 117 :RETURN 24696 CALL 117:RETURN 


100 X = 1*707 : CALL 98 100 X = 1*963 : CALL 98 


100 X = RND(-8411323.5) 100 X = RND(-8419424.5) 
110 CALL 203 110 CALL 203 


100 HOME:FLASH:PRINT"X “ 100 HOME:FLASH:PRINT"8 * 


110 NORMAL:CALL1024 


110 NORMAL:CALL1024 


Can you figure out how all these work? 


Can you think of some more? 


They are pretty tricky! 


Now you can monitor and control the world (or at least your part of it) with a little help from 


APPLIED ENGINEERING 


12 BIT, 16 CHANNEL, 
PROGRAMMABLE GAIN A/D 
All new 1984 design incorporates the 
latest in state-of-art I.C. technologies. 
Complete 12 bit A/D converter, withan 
accuracy of 0.02%! 


16 single ended channels (single ended 
means that your signals are measured 
against the Apple’s GND.) or 8 
differential channels. Most all the 
signals you will measure are single 
ended. 

9 software programmable full scale 
ranges, any of the 16 channels can have 
any range at any time. Under program 
control, you can select any of the 
following ranges: +10 volts, +5V, 
+2.5V, +1.0V, +5O00MV, +250MV, 
t100MV, +50MV, or +25MV. 

Very fast conversion (25 micro seconds). 
Analog input resistance greater than 
1,000,000 ohms. 

Laser-trimmed scaling resistors. 

Low power consumption through the 
use of CMOS devices. 

The user connector has +12 and -12 
volts on it so you can power your 
sensors. 

Only elementary programming is 
required to use the A/D. 

@ The entire system is on one standard 
size plug in card that fits neatly inside 
the Apple. 

System includes sample programs on 


disk: PRICE $319 


8 BIT, 8 CHANNEL A/D 
8 Channels 
8 Bit Resolution 
On Board Memory 
Fast Conversion (.078 ms per channel 


A/D Process Totally Transparent to 
Apple (looks like memory) 


The APPLIED ENGINEERING A/D 
BOARD is an 8 bit, 8 channel. memory 
buffered, data acquisition system. It 
consists of an 8 bit A/D converter, an 8 
channel multiplexer and 8 x 8 random 
access memory. 


The analog to digital conversion takes 
place on a continuous, channel 
sequencing basis. Data is automatically 
transferred to on board memory at the 
end of each conversion. No A/D 
converter could be easier to use. 


Our A/D board comes standard with 0, 
10V full scale inputs. These inputs can 
be changed by the user to 0, -10V, or 
-5V, +5V or other ranges as needed. 
The user connector has +12 and -12 
volts on it so you can power your 
sensors. 


@ Accuracy; 0.3% 
@ Input Resistance: 20K Ohms Typ 


PRICE $129.00 


A few applications may include the monitoring of @ flow @ temperature @ humidity 
@ wind speed e wind direction @ light intensity @ pressure @© RPM ®@ soil moisture 


and many more. 


SIGNAL CONDITIONER 


Our 8 channel signal conditioner is designed for use with both our A/D converters. This 
board incorporates 8 F.E.T. op-amps. which allow almost any gain or offset For example: an 
input signal that varies from 2 00 to 2.15 volts or a signal that varies from 0 to 50 mV can 
easily be converted to 0-10V output for the A/D. 


The signal conditioners outputs are a high quality 16 pin gold I.C. socket that matches the 
one on the A/D’s soa simple ribbon cable connects the two. The signal conditioner can be 
powered by your Apple or from an external supply. 


FEATURES 

@ 4.5” square for standard card cage and 4 mounting holes for standard mounting, The 
signal conditioner does not plug into the Apple, it can be located up to % mile away from 
the A/D. 


22 pin .156 spacing edge card input connector (extra connectors are easily available i.e. 
Radio Shack). 


Large bread buard area. 
Full detailed schematic included. 


PRICE $79.00 


DIGITAL INPUT/OUTPUT BOARD 


@ Your inputs can be anything from high 
standard 16 pin socket for standard dip > speed logic to simple switches. 
ribbon cable connection. @ Very simple to program, just PEEK at the 
Power-up reset assures that all outputs data. 
are off when your Apple is turned on. @ Now, on one card, you can have 8 digital 
Features 8 inputs that can be driven outputs and 8 digital inputs each with its 
from TTL logic or any 5 volt source. own connector. The super input/output 
board is your best choice for any control 
application. 
The SUPER INPUT/OUTPUT board manual includes many programs for inputs and outputs. 
A detailed schematic is included. 
Some applications include: 
Burglar alarm, direction sensing, use with relays to turn on lights, sound buzzers, start 
motors, control tape recorders and printers, use with digital joystick. PRICE $69.00 


Provides 8 buffered outputs to a 


Please see our other full page ad in this magazine for information on Applied Engineering's Timemaster Clock Card and other products for the Apple. 
Our boards are far superior to most of the consumer electronics made today. All I.C.’s are in high quality sockets with mil-spec. components used throughout. P.C. boards are glass-epoxy 
with gold contacts. Made in America to be the best in the world. All products compatible with Apple tl and //e. 


Applied Engineering's products are fully tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle three year warranty. 


Texas Residents Add 5% Sales Tax 
Add $10.00 tf Outside U.S.A. 
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Send Check or Money Order to: 
APPLIED ENGINEERING 
P.O. Box 798 
Carroltton, TX 75006 


Call (214) 492-2027 
7 am. to 11 p.m. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No extra charge for credit cards 


Line Number Cross Reference....ccccccccccccccccveseeeBill Morgan 


Have you ever had to modify a BASIC program written by someone 
who didn't seem to know what he was doing? Deciphering several 
hundred undocumented lines of split FOR/NEXTs and tangled GOTOs 
can lead to a severe headache. We recently had a consulting 
job that involved just such a project: one program to be 
altered was about a hundred sectors of spaghetti-plate 
Applesoft. A couple of the biggest problems were figuring out 
which lines used a particular variable, and what lines called 
others, or were called from where. 


Back in November of 1980, AAL published a Variable Cross 
Reference program which neatly took care of the first problem 
by producing a listing in alphabetical order of all the 
variables used and all the lines using them. At the end of 
that article, Bob S-C pointed out that the program could, with 
some effort, be modified into just the sort of Line Number 
Cross Reference we now needed. Well, I drew the job of making 
that modification, and here's what I came up with. 


The Basis 


These Cross Reference programs use a hash-chain data structure 
to store the called and calling line numbers. Each called line 
has its own list of lines which refer to it. We locate these 
lists by using the upper six bits of the line number for an 
index into a table located at $280. This table contains the 
address of the beginning of each of the 64 possible chains. 
Each chain is made up of the data for a range of 1024 possible 
called line numbers. The first one has called lines 0-1023, 
the second has 1024-2047, and so on. 


The entry for each called line is made up of a pointer to the 
next called line in that chain, this called line number, a 
pointer to the next calling line, and the number of this 
calling line. Each subsequent calling line entry has only the 
last four bytes. A pointer with a value of zero marks the end 
of each chain and each list. 


VCR used three characters for each variable: the first two 
letters of the variable name and a type designator of "“$", "%* 
or " “", The first character was the hash index and the last 
two characters were stored at the beginning of each variable's 
chain. LCR uses the high-order 6 bits of the called line 
number for the hash index and stores both bytes of the number 
in the chain. This is slightly redundant, so if you want to 
store more information about the called line, you can use the 
upper six bits of the chain entry. 


VCR stored the calling line numbers with the high byte first, 
backwards from usual 6502 practice. This was done so the same 
search-compare code could handle both variable names and line 
numbers. To simplify the conversion I kept the same structure, 
even though it's no longer strictly necessary. 
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The Program 


LCR, the overall control level, is identical to VCR and just 
calls the other routines. 


INITIALIZATION prepares a couple of pointers and zeroes the 
hash table. The only difference here is the size of the hash 
table. 


PROCESS.LINE is also the same as in VCR. This routine steps 
through the lines of the Applesoft program, moving the calling 
line number into our data area and JSRing to SCAN.FOR.CALLS to 
work on each line. 


SCAN.FOR.CALLS is the first really new section of code. We 
start by setting a flag used to mark ON ... GO statements. 
Then we step through the bytes of the line, looking for tokens 
that call another line. GOTO and GOSUB are processed 
immediately. For a THEN token we check to see if the next 
character is a number. If it is, we deal with it; if not, we 
go on. If we find an ON token, we set the flag and keep 
looking. After a GOTO or GOSUB we check ONFLAG. If there was 
an ON, we look for a comma to mark another called line number. 


PROCESS.CALL first converts the ASCII line number of the called 
line into a two-byte binary number and then searches the data 
structure for that line. If it is there, we simply add this 
calling line to the list. If we don't find the called line we 
create a new entry for it. 


CONVERT.LINE.NUMBER is lifted straight from Applesoft's LINGET, 
at S$DAOC. 


NEXT.CHAR is a utility routine to get the next byte from the 
program and advance the pointer. 


SEARCH.CALL.TABLE starts the search pointer on the appropriate 
chain. 


CHAIN.SEARCH uses the pointer in an entry to step to the next 
entry. If the pointer is zero, then there is no next entry and 
the search has failed. We then compare the line number in the 
entry to the one we're looking for. If the entry is less than 
the search key, we go on. If it is equal, we update the 
pointer and report success. If we hit an entry greater than 
the key, the search fails and we return. 


SEARCH.LINE.CHAIN is called after SEARCH.CALL.TABLE has found a 
Match. Here we move the pointer to the calling line field of 
the matching entry and use the current calling line for a 
search key. 


ADD.NEW.ENTRY first updates the pointers in the previous entry 
and this new entry, and the end-of-table pointer. We then make 
sure there is room for the new entry and move the data up into 
the new space. 
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get SUE Stints PF Gu'28°8)"" ° 


0 
OoF6— 20 01 OA : 0 SNC..1 JSR STORE. CHAR 
ike 690 STORE.N.CHARS 
OOFA- DO FA  —. 3700 BNE SNC..1 
O9FC- 60 3710 
3130 7 STORE A CHAR IN THE BUFFER 
3750 STORE.DIGIT 
OgFD- 29 OF 3150 AND #$0F 
OOFF- 09 30 70 flor 
3780 STORE.CHAR 
OA01- AE 2B 08 3790 LDX INDEX 
OAQK- 9D 00 3900 STA FOUT.BUF,X 
OAO7- EE 2B 08 3810 INC INDEX 
OAOA- 6 3820 . RTS 
8 # __ROUND DAC TO (D) DECIMAL PLACES 
820 ROUND-DAC .D 
OAOB- AD 41 08 3870 LDA DAC.SIGN GET THE SIGN 
OAOF- A9 28 B20 LDA #CON. 1HALF 
OA11- AO OA 960 LDY /CON. 1HALF ; 
OA13- 20 FF FF 3910 JSR MOVE-YA-ARG_ MOVE .5#10°=D INTO ARG 
OA17T- 8D 4D 08 3330 STA ARG. SIGN 
OA1A- AD 2A 08 39 LDA D GET # OF PLACES 
OAID- 49 FF 3950 EOR #$FF MAKE IT NEGATIVE BY 2S COMPLEMENT 
OAIF- 3 3960 SEC ADD 1 DURING NEXT ADD 
OA20- 69 40 70 ADC #$40 ADD OFFSET 
OA22- 8D 42 08 3980 STA ARG.EXPONENT i 
OA25- AC FF FF 990 JMP DADD ADD .5#10°-D;FOUT WILL TRUNCATE IT 
OA28~ 40 50 
OA2B- 00 00 00 
OA2E- 00 0 


0 00 
OA31=- 00 00 4010 CON.1HALF .HS 4050000000000000000000 


27 Enhancements for the S-C Macro Assembler 1.1 (Videx $1000 ver.) 


A 1723-byte patch for Videx 80-column board users providing On-Line 

editing with version 1.1 - All the edit commands are now available 

during normal input (non-edit mode) i.e. insert, delete, 

skip-to-character etc. The New/Extended Commands are: 

Non-Edit Mode: Ctri-A,B,C,D,Fx,K,L,M,N,P,Q,R,S,1,V,W,Z,@, 
Ctri-shift-N, Esc-C, PAG, USR, AUTO, VAL, MEM, 

Edit Mode: Ctri-K, P, Z. 


The RETURN-key accepts the whole line Irrespective of cursor position. 
USR toggles line=numbers on/off during listing and assembly. VAL now 
displays hex, binary and decimal results. Ctri-K skips to start of 
comment column from any position. Ctr!-Z does an UPPER/|ower-case 
toggle. Ctrl-W toggles between AUTO and MANUAL modes. After a 
CTRL-shift-N the next key pressed becomes the clear-to-tab character, 
Esc-C does a CATALOG. MEM shows free space in RAM and on Disk. (DOS 
3.3) Ctri-C continues editing from current linenumber, Ctri-V allows 
the user to view source from current l|inenumber,. Leading zeros are 
removed from linenumbers and page numbers if using .Tl. The SYM 
routine is modified to exclude the clutter of local labels. Ctri-P 
outputs the source separator "*----- etc" in both the edit and non-edit 
modes. You can now use Ver 1.1 as a useful if limited 80-column 
line-oriented wordprocessor for your letters and reports. User RAM 
$3C00-$9600 (Maxfiles 3). All for $15 - which buys a disk with 
Article, binary patch, installer and 980-line source code. 
R.F.O'Brien,14 CLonshaugh Lawn, Coolock, Dublin 5, Ireland. 
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Now we are done with the routines devoted to building the Cross 
Reference tables. Interestingly, SEARCH.CALL.TABLE, 
CHAIN.SEARCH, SEARCH.LINE.CHAIN, and ADD.NEW.ENTRY are the real 
neart of this program, and the only change I had to make in 
these routines from VCR to LCR was to alter the method of 
figuring the hash index in SEARCH.CALL.TABLE. Next we come to 
getting the data back out of the tables and onto a display. 


PRINT.REPORT first sets a pointer we'll be using later on and 
then steps through the hash table, calling PRINT.CHAIN for each 
entry found. 


PRINT.CHAIN starts out by checking for a pause or abort signal 
from the keyboard. It then moves the current called line 
number into LINNUM, checks to see if it really exists, and 
prints it, followed by an asterisk if it is undefined. Now we 
move a pointer up to the start of the calling line list and 
call PRINT.LINNUM.CHAIN to display all the entries. The last 
step is to move the pointer up to the next called line in this 
chain, if any, and go back to do that one. 


CHECK.DEFINITION keeps its own pointer into the program and 
steps along checking each called line to see if it actually 
exists. It provides a space or an asterisk to be printed after 
the line number. 


PRINT.LINNUM.CHAIN displays the calling lines stored for each 
called line. We first tab to the next column (or line if 
necessary), then get the line number out of the list and print 
it. Lastly, we move the pointer up to the next entry, if any, 
and loop back. 


TAB.NEXT.COLUMN prints enough blanks to move over to the next 
output position. If a new line is necessary, it checks the 
line number to see if the new line should go to the screen 
only, or also to a printer. This is Louis Pitz's addition, 
designed to automatically handle either 40- or 80-column 
output. 


PRINT.LINE.NUMBER and CHECK.FOR.PAUSE are pretty standard 
routines to convert a two-byte binary number into five decimal 
characters, and to provide for pause/abort during display. 


Well, now we have a Line Number Cross Reference to go along 
with the Variable Cross Reference. Now all that remains is to 
integrate the two programs into one master Applesoft Cross 
Reference Utility. Maybe you could call it with "&V" for VCR, 
or "&L" for LCR, and simply “&"* to get both listings. Any 
takers out there? 


PS: Bob suggested that I add a diagram of the hash chain 
structure, and a summary of the search process. OK, here they 
a@r@€ eee 
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One of 
64 hash Calling Line Lists 


pointers 


a 
P-- o-oo 


Called 
Line 


Chain — 
ae 


9 ] 


Found a Call 


* 


Use high 6 bits of called line number to index Hash Table 
Get pointer from Hash Table to find start of chain 
* If no pointer in Hash Table, make new entry 
* Search chain for same line number 
* If not found, make new link in chain 
* If found, search calling line list 
* Enter new calling line in list 


% 


SSAVE S.LCR 


LINE NUMBER CROSS REFERENCE 
FOR APPLESOFT PROGRAMS 


® 
# 

bd Based on Variable Cross Reference 
: vies a by Bob S-C 11/80 

# 

# 


SCOSDSDOCOCCO 


WDORIAN SO 20 


ooo Go0o00o0°o 


1 
1 
1 
1 
1 
: 
1 Modified by Louis Pitz 8/8 
; Adapted by Bill Morgan 8/8 
1100 -OR $9000 
1110 TF B.LCR 
1120. Esecemeecanascuadesteeccewsseence 
9000- AQ AC 1136 LDA #$4C set & vector 
9002- 8D F5 03 1140 STA $3F 
005- A? 19 1170 LDA #LC 
007- FO 03 1160 STA $3F 
O0OA- 0 ye LDA CR 
00C- SD 03 1180 STA $3 
900F- 60 1190 RTS 
$900 Weececc co eeeoeeeeenesneeeeeeeeee 
- 1210 T EQ 1) 
1b6- 1220 COUNTER .EQ $1 
17- rt ONFLAG .EQ $17 ON ... GO flag 
Ly 1240 DEFFLAG .EQ HS 
18=- rr PNTR EQ $15, 19 ees into program 
Ae 1260 LZFLAG .EQ $1A eading zero flag 
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1A- at DATA ~-EQ $1A thru $1D 
lA- 1280 NEXTLN’ .EQ $1A,1B address of next line 
1C= 1290 LINNUM .EQ $1C,1D current line number 
1E=. 1300 STPNTR .EQ $1E,1F inter into call table 
B= 1310 TPTR -EQ $9B, Lemp pointer 
D=- 1320 ENTRY -EQ $9D thru $A4 bytes 
F= 1 Be CALL ~-EQ ENTRY 
5- 1340 SIZE -EQ 42 A6 
0280- 50 HSHTBL £0 $2860 
67T- 1 io PRGBOT .EQ 67°88 beginning of program 
69- 1380 LOMEM -EQ $69,6A beginning of variable space 
6B- 130 EOT -EQ $6B,6C end of variable table 
HOO Socewececcecceeoeececesecacocecona 
2C=- 1410 COMMA -EQ ! 
8D- 1420 CR -EQ $8D 
AB- 130 TKN.GOTO ~-EQ $AB 
BO0-= 1440 TKN.GOSUB .EQ $B0 
B4- 130 ON -EQ $B4 
Che : TKN. THEN ~EQ $C4 
2he 1480 MON .CH EQ $24 
Co00- be KEYBOARD -EQ $C000 
C010—= 1500 ROBE EQ $C010 
D410—= 1510 AS.MEMFULL .EQ $D410 
FO4A- 1520 MON.PRBL2 .EQ $F94A 
FD8E-=- i255 MON.CROUT .EQ $FD8E 
ED= 15 ON. T eEQ $FDED 
FDFO= 1326 MON . COUT 1 EQ $FDFO : 
9010— 23 90 ‘eke LCR JSR INITIALIZATION 
9013- 20 3E 30 1580 .1 JSR PROCESS.LINE 
o18- DO FB 1 3° BNE .1 until end of program 
018= 20 B5 91 2 0 JSR PRINT. REPORT 
01B=- 20 23 90 1610 JSR INITIALIZATION erase call table 
O1E=- AQ 00 1620 LDA #0 clear $A4 so Applesoft 
020- 85 A 1630 STA $A4 will work correctly 
022- 60 ee . 5 ee 
1660 INITIALIZATION 
9023- A5 69 1670 LD start call table 
9025— 85 6B 1660 aes . after program 
- OMEM+ 
3029. 8 eC «1700 STA EOT+1 
Bone Ag BG ve ae $i # of bytes for hash pointers 
O2F- 9D 7F 02 17530 ol STA HSHTBL-1,X 
O32 BO FA 1750 BNE 1 
30 = AS é i420 LDA PRGBOT start pointer at 
037— 85 é 1 qo STA PNTR beginning of program 
0 §- A5 if 0 LDA PRGBOT+1 
903B=- 85 19 1720 STA PNTR+1 
903D—- 60 te ‘ RTS 
1820 PROCESS.LINE : ietaxscad Musa 
- 0 1830 LDY capture pointer 
20 E- 40 18 | Ho 1 LDA (Puen) ¥ 
ea Lo) Oa ba 
SH He + 1350 LDA DATA+1 check if end 
a . 16 La BEQ 3 yes, return .EQ. 
a t pointer to 
gOuP= df 1938 hee 5NTR erro ever data 
gei- $5 3818p za Pare 
055- £6 19 1990 INC PNTR+1 
g057- 20 63 90 1960 .2 JSR SCAN.FOR.CALLS 
O5A= A5 if 1380 LDA DATA point to next line 
905C= 85 1 19380 STA PNTR 
905E- 2 1B 1990 LDA DAT A+1 and return .NE. 
9060=- 85 19 2000 STA PNTR+1 
9062= 60 ona0 3 RTS 
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2030 SCAN.FOR.CALLS 
LDA # 


906 3- AQ FF 2040 FF 
9065- 4 2050 STA ONFLAG 
9067= 20 07 91 2000 «1 JSR NEXT.CHAR 
906A=- FO 32 2070 BEQ . 
906C- C9 CH 2080 CMP #TKN.THEN scan for call token 
O6E=- FO 10 2090 BEQ .2 
070—- C9 AB 2100 CMP #TKN.GOTO 
9072= FO 18 2110 BEQ . 
9074—- C9 BO 2120 CMP #TKN.GOSUB 
307 8- FO 14 2130 BEQ .3 
C9 Ba 2140 CMP #TKN.OW 
907A- DO EB 2150 BNE .1 no match, keep going 
907C= 46 17 2160 LSR ONFLAG set flag for ON token 
3o80- AO 0 2190 .2 LDY after THEN, check 
082- B1 1 2200 LDA (PNTR),Y for line number 
9084- C9 30 2210 ¢ 
9086- 90 DF 2220 BCC .1 <O isn't 
9088- C9 3A 2230 CMP #'9+1 
Q08A- BO DB . : BCS .1 neither is 59 
908C= 20 9F 90 2260 .3 JSR PROCESS.CALL handle this call 
QO8F=- A5 1 2270 LDA ONFLAG are we in ON? 
9091—- 30 D 2280 BMI SCAN.FOR.CALLS no, go on 
9093- 20 4 91 2290 JSR NEXT.CHAR yess ook for comma 
9096=- FO 2300 BEQ .4 OL 
098= C9 2C 2310 CMP # 
O9A- FO FO 2320 BEQ .3 comma, get another call 
909C= DO C5 g Ro BNE SCAN.FOR.CALLS ...always 
909E- 60 2350 .& RTS 
2 60 Caooseewaeceameamamamas CD GD ED GD Gb OS EE GP > GP GD Sp 
2370 PROCESS.CALL 
Q09F- 20 CH 90 2380 JSR CONVERT. LINE . NUMBER 
OA2= 20 14 91 2390 JSR SEARCH.CALL. TABLE 
OA5=- 90 1 2400 BCC .2 found same call 
QOAT- AQ O 2410 LDA #0 
90A9—- 85 Al 2420 STA ENTRY+4& start of line number chain 
QOAB- 85 A2 2430 STA ENTRY+5 
AD=- AS 1D 2a LDA LINNUM+1 MSB first 
QOAF- 85 A 2450 STA ENTRY+6 
QOBi- A5 1 2460 LDA LINNUM 
Q0B3—- 85 ak aS STA ENTRY+7 
OB5—- AQ 08 24 LDA #8 add 8 byte entry 
OB7=- 4C 74 91 ere e1 JMP ADD. NEW.ENTRY 
Q90BA- 20 54 91 2510 .2 JSR SEARCH.LINE.CHAIN 
90BD=- 90 04 2520 BCC . found same line number 
OBF- AQ 04 2530 LDA # add 4 byte entry 
0C1-= D Fa 25 0 BNE ot ee always 
$270 
5240 CONVERT . LINE . NUMBER 
g0C4=- ad 00 £220 LDA #0 
90C6— 85 AO 2600 STA CALL+1 
Q90CB8- 85 on 2610 A CAL 
9OCA- 20 07 91 2620 .1 JSR NEXT.CHAR 
90CD- FO OF 26 30 BEQ .2 EOL 
Q0CF- 38 2640 SEC 
90D0- 4 30 2630 SBC #'0 make value 
90D2- 90 2A 2660 BCC .2 <O isn't number 
90D4- C9 OA 2670 CMP #9+1 
oop - BO 2680 BCS .2 >9 isn't number 
OD8— 48 2690 PHA save value 
90D9—- A5 OF 2700 LDA CALL 
ODB- 85 15 2710 STA TEMP 
ODD- A5 Ad 2720 LDA CALL+1 multiply CALL ® 10 
ODF- OA 2730 ASL 
OEO= 26 15 2740 ROL TEMP 
90E2—= OA 2750 ASL 
Q0E3—- 26 15 2760 ROL TEM 
OE5— 65 AO say CALL+1 
OE7=- 85 AO 2780 STA CALL+1 
OCER- b2 15 2120 LDA TEMP 
OE 5 OF 2800 ADC CALL 
QOED- 85 9F 2810 STA CALL 
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QOEF- 06 AO 2820 ASL CALL+1 


90F1- 26 OF 28 30 ROL CALL 
90F3- 6 2840 PLA get value this digit 
QOF4- 65 AO 2850 ADC CALL+1 and add it in 
90F6—- 85 AO 2860 STA CALL+1 
9OF8- 90 DO 2870 BCC .1 
QOFA- E6 OF 28 80 INC CALL 
OFE- A5 18 2910 .2 LDA PNTR back up PNTR 
100- DO 02 20 BNE 
102= C6 1 ey DEC PNTR+1 
104- C6 1 29 3 DEC 
9106- 60 2 20 RTS 
S000 Saceneeon cee meee etaeeceadeceaceas 
fe NEXT.CHAR 
9107- AO 00 29 #0 
Biche Bi 18 29 90 LDA (PNTR),Y 
10B- FO 06 3000 BEQ .1 EOL 
Boos E6 18 3036 INC PNTR bump pointer 
10F- DO 02 020 BNE .1 
3443 6 19 030 INC PNTR+1 
113= 60 : 7 :! RTS 
060 SEARCH.CALL. TABLE 
9118— A5 OF 3070 LDA CALL hi-byte of called line 
Bee 29 FC 0 AND #$FC hi 6 bits 
ae - KA 090 LSR make 0-126 
119= 69 80 100 ADC #HSHTBL carry is clear 
sib 85 1E 110 STA STPNTR 
11D= AQ 02 120 LDA /HSHTBL 
a1s4e $2 00 130 ADC #0 
121=- 85 1F 140 STA STPNTR+1 
130 f-<- fall into CHAIN.SEARCH routine 
Lf CHAIN. SEARCH 
9123—- AO 00 180 . LDY #0 point at pointer in entry 
Er BI 1E 190 LDA (STPNTR),Y 
127T- 3 9B 200 STA TPTR 
9129- C 10 INY 
912A- B1 1E 220 LDA (STPNTR),Y 
912C- FO 1A 3230 BEQ . end of chain, not in table 
912E- 85 9C STA TPTR+1 
3130. A2 02 0 LDX #2 2 bytes in number 
9132—- AO 02 260 LDY #€2 point at line number in entry 
9134- B1 9B 3270 .2 LDA (TPTR),Y compare numbers 
9136- D9 9D 00 3280 CMP ENTRY,Y 
3138 90 08 90 BCC . not this one, but keep looking 
913B- DO OB 300 BNE . not in this chain 
3} - CA 10 DEX 
13E=- FO OA 20 BEQ .5 same number 
3 O- C8 370 INY next byte pair 
141= DO F1 “ft BNE .2 -e always 
31a 20 4A 91 320 3 JSR .5 upeere pointer, clear carry 
9146—- 90 DB 3 e BCC .1 «ee always 
9148- 38 Bo 4 SEC did not find 
9149- 60 Pea RTS 
Q14A- A5 9B 420 .5 LDA TPTR point to matching entry 
914C- 85 1E 3130 STA STPNTR 
Q14E- A5 IC 34 LDA TPTR+1 
3i129- F} 1F 320 STA STPNTR+1 
152=— 1 460 CLC 
9153- 60 azo RTS 
pT] 0 Go. TD GP GD OP > Gp GD Of GS Ge Ge G4 GS GP Gh Gp GE GD Ge Gh G> GP GS EP SS CF GS SS SH aH 
490 SEARCH.LINE.CHAIN 
9154- 18 ze98 CLC adjust pointer to start 
9155- A5 1E 510 LDA STPNTR of line # chain 
9157=- 69 O4 3520 ADC #4 
g12B- 85 9D a2 ho STA ENTRY 
15B- A5 IF 540 LDA STPNTR+1 
915D=- 69 00 550 ADC #0 
3128 85 9E 560 STA ENTRY+1 
31 1=- i? 9D 570 LDA #ENTRY 
16 3- 1E 580 STA STPNTR 
9165- AO 00 35.90 LDA /ENTRY 
9167- 85 1F 3600 . STA STPNTR+1 
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Appleseed is a complete computer system. It is designed using the bus 
conventions established by Apple Computer for the Apple ][. Appleseed is 
designed as an alternative to using a full Apple }[ computer system. The 
Appleseed product line includes more than a dozen items including CPU, 
RAM, EPROM, UART, UNIVERSAL Boards as well as a number of 
other compatible items. This ad will highlight the Mother board. 


BX-DE-12 MOTHER BOARD 


The BX-DE-12 Mother board is designed to be fully compatible with all of 
the Apple conventions. Ten card slots are provided. Seven of the slots are 
numbered in conformance with Apple standards. The additional three 
slots, lettered A, B and C, are used for boards which don’t require a 
specific slot number. The CPU, RAM and EPROM boards are often placed 
in the slots A, B and C. 


The main emphasis of the Appleseed system is illustrated by the Mother 
Board. The absolute minimum amount of circuitry is placed on the Mother 
Board; only the four ICs which are required for card slot selection are on 
the mother board. This approach helps in packaging (flexibility & smaller 
size), cost (buy only what you need) and repairability (isolate and fix pro- 
blems through board substitution). 


Appleseed products are made for O.E.M.s and serious industrial/scientific 
users. Send for literature on the full line of Appleseed products; and, watch 
here, each month, for additional items in the Appleseed line. 


Appleseed products are not sold through computer stores. 
Order direct from our plant in California. 
Apple is a registered trademark of Apple Computer, Inc. 


DOUGLAS ELECTRONICS 
718 Marina Blvd., San Leandro, CA 94577 © (415) 483-8770 
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9169= A5 IC 3618 LDA LINNUM put line number into symbol 
916B— 85 AO 620 STA ENTRY+3 
916D- A5 1D 3630 LDA LINNUM+1 
3iSF- Bo 3F 0 STA ENTRY+2 
171=- 4C 23 91 26 . JMP CHAIN.SEARCH 
ay ADD. NEW. ENTRY 
9174— 85 A5 680 STA SIZE 
9176- 690 CLC see if room 
9177=- A2 01 3700 LDX #1 
9179= AO 00 710 LDY #0 
917B= 84 A6 720 STY SIZE+1 
3] D=- B1 1E 170 et LDA (STPNTR),Y get current pointer 
17F=- 99 9D 00 0 STA ENTRY,Y nto new entry 
3} 2=- BS 6B 00 3750 LDA EOT,Y pet hg old entry 
185- 91 1E 760 STA (STPNTR),Y this one 
1 72 B 00 18 STA TPTR,Y 
18A- 79 A5 00 0 ADC SIZE,Y and adjust end-of-table 
918D- 99 6B 00 3190 STA EOT,Y 
9190- C 00 IN 
g1go— CA 3536 DEX 
192= 10 E9 820 BPL .1 now do low-bytes 
3830 S..- see if there's going to be enough room 
9194—- AS 6B 840 LDA EOT 
3138- rt ge 890 CMP #LCR 
198— A Cc 860 LDA EOT+1 
919A- EQ 90 870 SBC /LCR 
919C= BO 14 880 BCS . MEM FULL error 
890 S-—— move entry into call table 
Q19E- A AS 900 LDY SIZ 
91A0—- 88 3910 DEY 
1Al- B 3 00 3920 .2 LDA retin Y 
1Aa~ 9 B 530 STA (TPTR),Y 
1A6—- 940 DEY 
Q1A7T—- 10 F8 950 BPL .2 
91A9—- A5 9B 960 LDA TPTR 
iA 85 1E 970 STA STPNTR 
1AD= A5 9C 980 LDA TPTR+1 
Q1AF- 85 1F 990 STPNTR+1 
91B1- 60 Sera 
91B2= 4C 10 D4 moan -3 JMP AS.MEMFULL abort with error message 
KOAO PRINT.REPORT 
91B5= A5 67 4050 LDA PRGBOT 
91B7- 85 1 4060 STA PNTR start defined line search 
91B9- A5 68 4070 LDA PRGBOT+1 at beginning of program 
91BB- 85 19 4080 STA PNTR+1 
91BD- AQ 00 4090 LDA #0 start at chain 0 
Q1BF= 85 15 4100 .1 STA TEMP 
91C1= OA 4110 ASL 
91C2= A8 4120 TAY 
ate - BO 81 02 #139 LDA HSHTBL+1,Y 
1Co=- FO OA 4140 BEQ . no entries for this chain 
91C8—- 85 IF azn STA STPNTR+1 
91CA- BO 80 02 4160 LDA HSHTBL,Y 
a1ebe 85 1E 4170 STA STPNTR 
1CF- 20 DB 91 4180 JSR PRINT.CHAIN 
91D2= E6 15 4190 .2 INC TEMP 
91DH—- A5 15 4200 LDA TEMP 
3108 C9 40 4210 CMP #$40 
1D8- 90 E5 4220 BCC . still more chains 
91DA=- 60 #3 : : RTS finished 


1320 PRINT.CHAIN 


91IDB- 20 DC 92 4260 JSR CHECK. FOR. PAUSE 

91DE=- FO 35 4270 BEQ .1 <CR> abort 
91EO=- AO O02 4280 LDY fe 

91E2=- B1 1E 4290 LDA (STPNTR),Y 

QiEK~- 85 1D 4300 STA LINNUM+1 

Q1E6—- C 4310 INY 

Q1ET7T- Bi 1E 4320 LDA (STPNTR),Y 

ra 85 1C 43R6 STA LINNUM 

QiEB- 20 1D 92 4340 JSR CHECK .DEFINITION 

QIEE=- 20 95 92 4350 JSR PRINT.LINE.NUMBER 

Q1F1l=- A5 17 4360 LDA DEFFLAG wee or = 
91F3=- 20 ED FD 4370 JSR MON .COUT 
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ae i: er tt CDA STPNTR 
gis 82 9B AO Sra tPTR Peete neha 
giED- AS AF «W420 LDA STPNTR+1 
a eee 
203= 20 Re 92 128 JSR PRINT. LINNUM.CHAIN 
g208- 30 Ge FD Aigo 38h HON. CHOD! 
a50b- BI 1E 4460 [DA (STPNIR),Y pointer to next call 
20D=- Fg OD Mery. BEQ .2 no more 
a a 
9211- B1 1E 4520 LDA (STPNTR),Y 
gaia. eb = eae By 
33 18- 85 1F 1220 STA STPNTR+1 
218= DO 00 nf : BNE .1 eo always 
921A- 68 net ti 1 PLA return to top level 
ata 68 1230 PLA if <CR> abor 
21C- 60 : + 3° RTS 
4620 CHECK.DEFINITION 
gop AD Of eo CDX #4 
G35) BUTE 4823 <7 RRA IPARE SE ook at next Line an program 
9225— 90 OF 4670 BCC .4 . < our number, get new line 
922T=- DO 08 4680 BNE .2 > &® " » not defined 
9229- 88 4690 DEY = 8 *« ~§;, go on 
922A—- CA 4700 DEX now do low order bytes 
aeep- ag ho «NT20 CDA gee found it! 
231- AQ AA 4750 .2 LDA #"ee flag undefined line 
$24 - 85 17 4760 .3 STA DEFFLAG 
235= 60 ets RTS 
236—- AO 00 4790 .4 LDY #0 
32387 Bi 18 4800 LDA fPNTR),Y lo-byte of next line address 
g538— ce 1820 THY 
923C=- B1 18 1830 LDA (PNTR),Y and hi-byte 
35 E- B 19 abo ota PNTR+1 
9241- EE 18 4860 STA PNTR 
9243- AC 1D 92 rt 0 ‘. JMP CHECK .DEFINITION 
nehty PRINT. LINNUM.CHAIN 
92h6—- AQ O 4900 LDA #0 reset counter to 0 
248—- 85 16 4910 STA COUNTER for each call 
24A- 20 70 92 4920 «1 JSR TAB. NEXT.COLUMN 
24D—- AO 0 nang LDY #2 point at line # 
24uF- Bi 9B i LDA (TPTR),Y 
gale : 1D azo ory LINNUM+1 
Seg- Bs 3e Noho ape Th 
258— 20 33 92 1330 JSR PRINT. LINE .NUMBER 
25B- AO 01 5000 LDY #1 set up next pointer 
25D—- Bi 9B 5010 LDA (TPTR),Y 
25F—- FO OB 5020 BEQ .2 end of chain 
aoeo- 88 2080 DEY 
336 - Bi 9B 5050 LDA (TPTR),Y 
acee- 6B Boro PLA 
Seba 85 9C 5080 STA TPTR+1 
26A- DO DE 2080 BNE e eo always 
926C- 60 2} ie 3° RTS 
pi po TAB. NEW. LINE 
926D—- 20 8E FD Zino JSR MON .CROUT 
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5160 TAB.NEXT.COLUMN 
85 0- A? 0 2i7e ot first tab stop 
2T2= C5 2 5180 . CMP MON.CH cursor position 
aaten BO 1 5190 BCS . perform tab 
276=- 69 5200 ADC # next tab stop 
he nal 
efee ge te Bout NC eDONEEE” GUE EDs Rereen ane 
$5 O- 29 01 5250 AND #1 look at odd-even bit 
seek ri 4 2 eh aa eLINE both scrn and printer 
3586. 20 FO FD 3560 JSR MON .COUT1 <CR> to screen only 
9289=- AC 70 92 2530 JMP .1 ee always 
28C=- FO 96 5310 .3 BEQ .4 already there 
eon. E5 2 8 44 MON .CH calculate # of blanks 
291- 20 4A FQ 5340 JSR MON. PRBL2 
9294- 60 2330 4 RTS 
5370 PRINT .LINE .NUMBER 
9295— A2 O04 5380 LDX #4 Eira 5 digits 
2297- 5 is 2328 a ee urn ea leading zero flag 
3588- h 5410 .2 PHA 
929C~ 38 5420 SEC 
929D=- A5 1C 5430 LDA LINNUM 
a el a eli 
goAe- FD DT 92 2470 SBC PLNTBH x 
92 A8- 90 OA 2nbo a less than divisor 
2AA- 3 1D 54 STA LINNUM+1 
2AC=- 6 5500 
gue Hy te elgg Lm 
2B0- 63 00 2230 ADC #0 increment digit 
2B 68 2226 3 PLA 
$28 7 G9 0  22h0 CHP #'0 
2B8—- FO OC 5 BEQ .5 zero, might be lead 
S2BA- 38 2260 BC torn’ off LZFLAG 
2BB= 66 1A 5610 ROR LZFLAG 
2BD- 09 80 5620 .& RA #$80 
Q92BF- 20 ED FD 2630 JSR MON .COUT 
92C2= CA 5640 DEX 
ia ne 
oecee a - 26 7 5 oe L2FLAG leading zero flag 
- e } se) 
See. a de 2¢ . cre #0 if all zeroes, print one 
92CE- A9 20 = 5710 LDA #! blank 
92D0- D EB gi 4 eoe always 
92D2= 01 5 ig PLNTBL .DA #1 
92D3—- OA 5750 -DA #10 
a a ee 
2Db- 10 5780 -DA #10000 
35Db— 00 243g PUNT EH Ok 710 
2D9- 00 5810 -DA /100 
2DA=- 03 5820 eDA /1000 
92DB- 27 2BR0 - -DA /10000 
Reo CHECK .FOR. PAUSE 
92DC- AD 00 CO 5860 LDA KEYBOARD keypress? 
aoe AD 18 co opao STA STROBE anal 
Q2E4—- C9 bp CMP #CR RETURN? 
92E6= FO OA 5900 BEQ .2 yes 
9Q2E8= AD 00 CO 5910 .1 LDA KEYBOARD no, wait for 
aoEp AD i, co 2350 STA STROBE epainer errore 
2F0=- C9 ap 280 CMP #CR return .EQ. if RETURN 
92F2- 5950 .2 
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Speaking of Slow CHiPS.cccccccscccssecevcccee RODErt H. Bernard 


William O'Ryan's article (AAL June 1984) about making the 65C02 
work in II+s reminds me of some other slow chip problems I have 
had in the past with Apples. 


Years ago, I had a problem with an SSM AIO card in an Apple 
that traced to a slow 74LS138 at position H2. The symptom was 
that every few hours the program would fly off into the weeds. 
I traced it to the device select for the slot, which caused the 
data on the bus to be late for ROM program fetches from the 
card. I was able to fix the problem in that case by swapping 
H2 with another '138 from a different (less critical) position. 


Some time later I was able to fix a problem in another machine 
by swapping the ROM SELECT chip at position Fl2 (another 
74LS138) with another '138. There are apparently many marginal 
timing situations in II+s, and they are not necessarily in the 
Oldest ones. 


All this slow circuit stuff has some interesting side effects. 
I personally had a number of conversations with SSM about this 
problem before I found the real cause, and all they could 
Suggest was a capacitor on the clock line. Even after I found 
the problem, the SSM people I talked to seemed uninterested in 
the fix, perhaps because they couldn't apply it directly to 
their product. 


The unfortunate end result was that a number of organizations 
that previously sold or recommended AIO cards stopped doing so. 
A domino effect was that our local retailer stopped pushing 
Anadex printers (which required the DTR signal, at that time 
only available on the AIO) rather than find another serial card 
to replace the AIO. I always wondered if the Anadex people 
noticed the effect on their sales.... 


Dosa Lancaster's AWile TOOLKIT 


Solve all of your Applewriter™ Ile hassles with these eight diskette sides 
crammed full of most-needed goodies including ... 


Patches for NULL, shortline, IIc detrashing, full expansion 
Invisible and automatic microjustify and proportional space 
Complete, thorough, and fully commented disassembly script 
Detailed source code capturing instructions for custom mods 
Clear and useful answers to hundreds of most-asked questions 
Camera ready print quality secrets (like this ad, ferinstance) 
New and mind-blowing WPL routines you simply won't believe 
Self-Prompting (!) glossaries for Diablo, Epson, many others 
Includes a free “must have" bonus book and helpline service 


All this and bunches more for only $39.95. Everything is unlocked and 
waprotected. Order from SYNERGETICS, 746 First Street, Box 809-AAL, 
Thatcher, AZ, 85552. (602) 428-4073. VISA or MC accepted. 
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Modify DOS 3.3 for Big BSAVES..............Bob Sander-Cederlof 


Jim Sather (author of “Understanding the Apple II" and designer 
of the QuikLoader card) called today, and one. topic of 
discussion was DOS 3.3's limit of 32767 for the maximum size of 
a binary file. Jim has been blowing 27256 EPROMs, which are 
32768 bytes long. To write a whole EPROMs worth of code on 
disk it takes two files, because the EPROM holds one more byte 
than the maximum size file. 


The limit doesn't apply if you write the file with the .TF 
directive in the S-C Macro Assembler, but it is checked when 
you type in a BSAVE command. The "L° parameter must be less 
than 32768. 


I remembered that somewhere very recently I had read of a quick 
patch to DOS to remove the restriction. Where? Hardcore 
Computing? Call APPLE? Washington Apple Pi? 


The answer was “yes" to both Call APPLE and W.A.P., because 
Bruce Field's excellent Apple Doctor column is printed in both 
Magazines. The July 1984 Call APPLE, on page 55, has the 
answer : 


"Sure, change memory location $A964 in DOS from $7F 
to SFF. From Applesoft this can be done with POKE 
43364,255. This changes the range attribute table in 
DOS to allow binary files as large as 65535 bytes." 


By the way, please do not try to BSAVE 65535 bytes on one file. 
You will not succeed, because doing so will involve saving 
bytes from the $COO0-COFF range. This is where all the I/0 
soft switches are, any you will drive your Apple and 
peripherals wild. And you will not be able to BLOAD it, 
because it will load on top of the DOS buffers. In general, do 
not BSAVE any area of RAM which includes $COO0-COFF. Do not 
BLOAD into the DOS buffers or DOS variables. 


If you want to test Bruce's patch, make the patch and then 
BSAVE filename,A$800,L$8E00. This will save from $800 through 
SO5FF. 
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